home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / tunroom.scp < prev    next >
Text File  |  1994-12-08  |  7KB  |  347 lines
  1. //*** TUNNEL ROOM AND OTHER STUFF (GRAVITY RING, ZERO G ROOM, ALIEN TEMPLE)
  2.  
  3. {   TUNROOM_LOAD
  4.  
  5.     ^à╝            = $âé           
  6.  
  7.     // IF LEX IS WEARING THE REFLECT SUIT MAKE SURE THE BATTERY CONTINUES
  8.     // TO BE DRAINED.    -BKA-
  9.     @Ç¢               PLAYER
  10.     I ( @Ç⌐      (LEXMIR) ) THEN
  11.         {
  12.         ^ä╝                    = @Çì      REFLECTBATTDRAIN
  13.         }
  14.  
  15.     // RESTART BIOREPAIR IF IT IS STILL ACTIVE
  16.     I  ^ïâ        = 1 THEN
  17.         ^Ä₧  = @Çì      BIOREPAIR
  18.  
  19.     // RESET TONFA GUN -BKA
  20.     ^ïÆ             = 0
  21.     ^ïò         = 0
  22.  
  23.     @Ç¥      REREADY_SHRIMP3    // REREADY IF IT EXISTS
  24.     @Çì      ZEROG_ROOM
  25.     @Çì      ZEROG_GRAVITY
  26.     @Çì      ZEROG_TURNING
  27.     @Çì      TEMPLE_TUBE_ANI
  28.     @Çì      BOBINGLIGHTS
  29.     I  ^î╕        != 0 THEN
  30.         ^î╕         = @Çì      LIGHT_ANIM 
  31.  
  32.     I  ^åö      = 1 THEN
  33.         {
  34.         G  TO_DIGS
  35.         }
  36.     I  ^åö      = 2 THEN
  37.         {
  38.         G  ZERO_G2
  39.         C      ZEG3
  40.         }
  41.  
  42.     N     (^謠         )
  43.         {
  44.         U    0
  45.             O     $Çê      
  46.         }
  47.     ^謠          = 1
  48.     ^êô      = 100
  49. }
  50.  
  51.  
  52. { TUN_LOAD
  53.     // WE MAY HAVE JUST COME FROM THE ZERO-G ROOM, SO DUMP US INTO STAND
  54.     M      STAND CONTINUE
  55. }
  56.  
  57.  
  58.  
  59.  
  60. //*** TUNNEL ROOM USABLE TRIGGERS
  61.  
  62. {   TO_DIGS_USE
  63.     I  ( @ÇÅ     ( ^骠      , 4 ) != 1) THEN
  64.         é     
  65.     ║            ON
  66.     A  OFF
  67.     I  @Ç╗                 CURFIG DIG_PT > $âÆ          THEN
  68.         {
  69.         G  DIG_PT WALK $âÆ         
  70.         G  DIG_PT    // KEN'S SUGGESTION TO HAVE HIM SHOOT STRAIGHT
  71.         }
  72.     E   
  73.         G  DIG_PT    // KEN'S SUGGESTION TO HAVE HIM SHOOT STRAIGHT
  74.     £    DIG_FACE GRADUAL
  75.     £    DIG_FACE
  76.     @Ç¥   LEAVETUBEROOM
  77.     ^åô      = 2
  78.     S         DIGSITE DTUBE_PT
  79.     A  ON
  80.     M      STAND CONTINUE    // KENS' SUGGESTION TO KEEP FROM FLOATING AFTER
  81.     ║            OFF
  82. }
  83.  
  84. {   TO_0G_USE
  85.     P        ~ÇÇ    
  86.  
  87.     I  ( @ÇÅ     ( ^骠      , 2 ) != 1) THEN
  88.         é     
  89.     ║            ON
  90.     A  OFF
  91.     I  @Ç╗                 CURFIG ZG_PT > $âÆ          THEN
  92.         {
  93.         G  ZG_PT WALK $âÆ         
  94.         G  ZG_PT    // KEN'S SUGGESTION TO HAVE HIM SHOOT STRAIGHT
  95.         }
  96.     E   
  97.         G  ZG_PT
  98.  
  99.     // LOCK THE CAMERA IN SO THE ZEROG CAMERA DOESN'T FIRE ACCIDENTALLY -BES
  100.     C      TUN2
  101.     £    ZG_FACE GRADUAL
  102.     £    ZG_FACE
  103.     @Ç¥   LEAVETUBEROOM
  104.     A  ON
  105.  
  106.     // IT IS CRITICAL THAT GRAVITY BE TURNED OFF BEFORE RUNNING
  107.     // THE GO COMMAND HERE, SO THAT LEX WON'T END UP ON THE FLOOR. -KLD
  108.     Z       CURFIG OFF
  109.     u          CURFIG OFF
  110.     o               // FOR KICKS
  111.     G  GFROMTUN
  112.  
  113.     u          CURFIG ON    // FOR KICKS
  114.     £    85
  115.     r          CURFIG ON
  116.     // NEGATIVE IS FORWARD, BELIEVE IT OR NOT
  117.     R    CURFIG 0 -4
  118.     è          OFF
  119.     ║            OFF
  120.  
  121.     æ               ZEROG_KEYBOARD
  122. }
  123.  
  124. //{   TMPL_1_USE
  125. //
  126. //      IF ( @GETFLAG( _TUBESOPEN, 1 ) != 1) THEN
  127. //              RETURN
  128. //      GO TO_TMPL
  129. //}
  130.  
  131. {   TO_GRAV_USE
  132.  
  133.     I  ( @ÇÅ     ( ^骠      , 3 ) != 1) THEN
  134.         é     
  135.     ║            ON
  136.     A  OFF
  137.     I  @Ç╗                 CURFIG GRV_PT > $âÆ          THEN
  138.         {
  139.         G  GRV_PT WALK $âÆ         
  140.         G  GRV_PT    // KEN'S SUGGESTION TO HAVE HIM SHOOT STRAIGHT
  141.         }
  142.     E   
  143.         G  GRV_PT
  144.     £    GRV_FACE GRADUAL
  145.     £    GRV_FACE
  146.     @Ç¥   LEAVETUBEROOM
  147.     A  ON
  148.     G  FROM_TUN
  149.     ║            OFF
  150. }
  151.  
  152. {   TO_TMPL_USE
  153.  
  154.     I  ( @ÇÅ     ( ^骠      , 1 ) != 1) OR ^î╣         = $é╗       THEN
  155.         é     
  156.  
  157.     ║            ON
  158.     A  OFF
  159.     I  @Ç╗                 CURFIG TMP_PT > $âÆ          THEN
  160.         {
  161.         G  TMP_PT WALK $âÆ         
  162.         G  TMP_PT
  163.         }
  164.     E   
  165.         G  TMP_PT
  166.  
  167.     £    TMP_FACE GRADUAL
  168.     £    TMP_FACE
  169.     ║            OFF // IN CASE GRENADE
  170.     // IF ANY OF THE MARINES ARE ALIVE, THEN HAVE THEM SHOOT US DEAD
  171.     I  @Ç¢              (TMP_MAR_1) THEN
  172.         {
  173.         I  .ÇéÇÇ        > 0 THEN
  174.             {
  175.             @Ç¢               PLAYER
  176.             @Ç¥   TUBETOTMPVSGRENADE
  177.             //CAPTION "/!Marines grenade us as we go through tube." PAUSE   // DO NOT TRANSLATE
  178.             }
  179.         E   
  180.             {
  181.             I  @Ç¢              (TMP_MAR_2) THEN
  182.                 {
  183.                 I  .ÇéÇÇ        > 0 THEN
  184.                     {
  185.                     @Ç¢               PLAYER
  186.                     @Ç¥   TUBETOTMPVSGRENADE
  187.                     //CAPTION "/!Marines drop grenade on us as we go through tube." PAUSE   // DO NOT TRANSLATE
  188.                     }
  189.                 E   
  190.                     {
  191.                     @Ç¢               PLAYER
  192.                     @Ç¥   LEAVETUBEROOM
  193.                     }
  194.                 }
  195.             E   
  196.                 Q       "/!Can't find Temple_Marine_2!" PAUSE   // DO NOT TRANSLATE
  197.             }
  198.         }
  199.     E   
  200.         Q       "/!Can't find Temple_Marine_1!" PAUSE   // DO NOT TRANSLATE
  201.  
  202.     @Ç¢               PLAYER
  203.     //GO TMPL_1
  204.     G  TO_TEMP
  205.  
  206.     // IF WE'RE NOT IN OUR MIRROR SUIT, THEN WE CHOKE ON THE AIR AND DIE.
  207.     I  @Ç⌐      (LEXMIR) = $Ç╗    THEN
  208.         {
  209.         A  OFF
  210.         W    20
  211.         M      CHOKE
  212.         o         
  213.  
  214.         W    1 SECOND
  215.         @Ç¥   KILLLEX
  216.         é     
  217.         }
  218.  
  219.     A  ON
  220. }
  221.  
  222. // FROM GRAV RING
  223. {   TO_TUN
  224.     ñ            CURFIG
  225.     @Ç¥   ENTERTUBEROOM 1 
  226.     G  TO_GRAV
  227.     A  ON
  228. }
  229.  
  230. { TO_BCH
  231.     // TRANSIT TO BEACH
  232.  
  233.     S         BEACH FROM_TPL
  234.     
  235.  
  236. }
  237.  
  238. // THIS CONTROLS THE ANIMATION OF THE TUBE TO THE TEMPLE.
  239. [ TEMPLE_TUBE_ANI
  240.     ó               TUN1 TUN2
  241.  
  242.     :TOP
  243.  
  244.     I  @ÇÅ     (^骠      ,1) THEN
  245.         {
  246.         I  ^î╣         = $é╝      THEN
  247.             {
  248.             ^麠       = 1
  249.             ^é▒        = 1
  250.             }
  251.         E   
  252.             {
  253.             00:10   ^麠       = 0
  254.                 ^é▒        = 0
  255.             00:20   ^麠       = 1
  256.                 ^é▒        = 1
  257.                 @Çå   (`èÇ           , 100, -2048)
  258.             }
  259.         }
  260.     E   
  261.     {
  262.         ^麠       = 0
  263.         ^é▒        = 0
  264.     }
  265.     00:20   ò            
  266.             J    #Çë
  267. ]
  268.  
  269. [ BOBINGLIGHTS
  270.     ó               TUN1 TUN2
  271.     :TOP
  272.     00:00 ^é╗        = 1
  273.           ^é╝        = 1
  274.     00:02 ^é╗        = 2
  275.           ^é╝        = 2
  276.     00:04 ^é╗        = 3
  277.           ^é╝        = 3
  278.     00:06 ^é╗        = 4
  279.           ^é╝        = 4
  280.     00:08 ^é╗        = 5
  281.           ^é╝        = 5
  282.     00:10 ^é╗        = 6
  283.           ^é╝        = 6
  284.     00:12 ^é╗        = 7
  285.           ^é╝        = 7
  286.     00:14 ^é╗        = 8
  287.           ^é╝        = 8
  288.     00:16 ^é╗        = 9
  289.           ^é╝        = 9
  290.     00:18 ^é╗        = 10
  291.           ^é╝        = 10
  292.     00:20 ^é╗        = 11
  293.           ^é╝        = 11
  294.     00:22 ^é╗        = 12
  295.           ^é╝        = 12
  296.     00:24 ^é╗        = 13
  297.           ^é╝        = 13
  298.     00:26 ^é╗        = 14
  299.           ^é╝        = 14
  300.     00:28 ^é╗        = 15
  301.           ^é╝        = 15
  302.     01:00 ^é╗        = 16
  303.           ^é╝        = 16
  304.     01:02 ^é╗        = 17
  305.           ^é╝        = 17
  306.     01:04 ^é╗        = 18
  307.           ^é╝        = 18
  308.     01:06 ^é╗        = 19
  309.           ^é╝        = 19
  310.     01:08 ^é╗        = 20
  311.           ^é╝        = 20
  312.     01:10 ^é╗        = 21
  313.           ^é╝        = 21
  314.     01:12 ^é╗        = 22
  315.           ^é╝        = 22
  316.     01:14 ^é╗        = 23
  317.           ^é╝        = 23
  318.     01:16 ^é╗        = 24
  319.           ^é╝        = 24
  320.     01:18 ^é╗        = 25
  321.           ^é╝        = 25
  322.     01:20 ^é╗        = 26
  323.           ^é╝        = 26
  324.     01:22 ^é╗        = 27
  325.           ^é╝        = 27
  326.     01:24 ^é╗        = 28
  327.           ^é╝        = 28
  328.     01:26 ^é╗        = 29
  329.           ^é╝        = 29
  330.     01:28 ^é╗        = 30
  331.           ^é╝        = 30
  332.     02:00 ò            
  333.           J    #Çï
  334. ]
  335.  
  336. {       GETACLUE
  337.  
  338.     W    10 SECONDS
  339.     i           LEX STATUE
  340.  
  341. }
  342.  
  343.  
  344.  
  345.  
  346. //$ 26 - version number
  347.